home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Tools - Objects / MacApp / Unsupported Samples / CRC Cards / Source / UMyCommands.p < prev    next >
Encoding:
Text File  |  1990-07-11  |  11.0 KB  |  323 lines  |  [TEXT/MPS ]
  1. Unit UMyCommands;
  2.  
  3. INTERFACE
  4.  
  5. USES
  6.     UMacApp,
  7.     ToolUtils,
  8.     Resources,
  9.     Packages,
  10.     UPrinting,
  11.     UTEView,
  12.     UDialog,
  13.     UGridView,
  14.     UCRCCards,
  15.     UItem,
  16.     UCard,
  17.     UDesignDocument,
  18.     UMyViews,
  19.     UTextHandler;
  20.  
  21. TYPE
  22.     TMyCommand = OBJECT(TCommand)
  23.         fDocument: TDesignDocument;
  24.         fCard: TCard;
  25.         
  26.         PROCEDURE TMyCommand.IMyCommand(theCommandNum: CmdNumber; theCard: TCard);
  27.         FUNCTION TMyCommand.GetDocument: TDesignDocument;
  28.         PROCEDURE TMyCommand.SetDocument(theDesign: TDesignDocument);
  29.         FUNCTION TMyCommand.GetCard: TCard;
  30.         PROCEDURE TMyCommand.SetCard(theCard: TCard);
  31.         PROCEDURE TMyCommand.DetermineInitializationFromCard(    theCard: TCard;
  32.                                                                                                                     VAR theDesignDoc: TDesignDocument;
  33.                                                                                                                     VAR theDesignView: TDesignView;
  34.                                                                                                                     VAR theScroller: TScroller);
  35.         PROCEDURE TMyCommand.RedoIt; OVERRIDE;
  36.         PROCEDURE TMyCommand.Fields(PROCEDURE DoToField(fieldName: Str255; fieldAddr: Ptr; 
  37.                 fieldType: INTEGER)); OVERRIDE;
  38.     END;
  39.     
  40.     TDraggerCommand = OBJECT(TMyCommand)
  41.         fSimpleView: TSimpleView;
  42.         fOldLocation: VPoint;
  43.         fNewLocation: VPoint;
  44.         
  45.         FUNCTION TDraggerCommand.GetSimpleView: TSimpleView;
  46.         PROCEDURE TDraggerCommand.SetSimpleView(theSimpleView: TSimpleView);
  47.         FUNCTION TDraggerCommand.GetOldLocation: VPoint;
  48.         PROCEDURE TDraggerCommand.SetOldLocation(theLocation: VPoint);
  49.         FUNCTION TDraggerCommand.GetNewLocation: VPoint;
  50.         PROCEDURE TDraggerCommand.SetNewLocation(theLocation: VPoint);
  51.         PROCEDURE TDraggerCommand.IDraggerCommand(theView: TSimpleView; theDownPoint: Point);
  52.         PROCEDURE TDraggerCommand.TrackFeedback(anchorPoint, nextPoint: VPoint;
  53.                                     turnItOn, mouseDidMove: BOOLEAN); OVERRIDE;
  54.         FUNCTION TDraggerCommand.TrackMouse(aTrackPhase: TrackPhase;
  55.                              VAR anchorPoint, previousPoint, nextPoint: VPoint;
  56.                              mouseDidMove: BOOLEAN): TCommand; OVERRIDE;
  57.         PROCEDURE TDraggerCommand.DoIt; OVERRIDE;
  58.         PROCEDURE TDraggerCommand.UndoIt; OVERRIDE;
  59.         
  60.         PROCEDURE TDraggerCommand.Fields(PROCEDURE DoToField(fieldName: Str255; fieldAddr: Ptr; 
  61.                 fieldType: INTEGER)); OVERRIDE;
  62.     END;
  63.     
  64.     TCardCommand = OBJECT(TMyCommand)
  65.  
  66.         {Fields}
  67.         fIndex: ArrayIndex;
  68.  
  69.         {Methods}
  70.         FUNCTION TCardCommand.GetIndex: ArrayIndex;
  71.         PROCEDURE TCardCommand.SetIndex(theIndex: ArrayIndex);
  72.         PROCEDURE TCardCommand.ICardCommand(theCommandNum: CmdNumber; theCard: TCard; 
  73.                                                                             itsIndex: ArrayIndex);
  74.         PROCEDURE TCardCommand.Fields(PROCEDURE DoToField(
  75.             fieldName: Str255; fieldAddr: Ptr; fieldType: INTEGER)); OVERRIDE;
  76.  
  77.     END;
  78.  
  79.  
  80.     TAddCardCommand = OBJECT(TCardCommand)
  81.  
  82.         {Methods}
  83.         PROCEDURE TAddCardCommand.IAddCardCommand(theLocation: Vpoint; 
  84.                                 theDocument: TDesignDocument);
  85.         PROCEDURE TAddCardCommand.DoIt; OVERRIDE;
  86.         PROCEDURE TAddCardCommand.UndoIt; OVERRIDE;
  87.         PROCEDURE TAddCardCommand.Free; OVERRIDE;
  88.  
  89.     END;
  90.  
  91.  
  92.     TDeleteCardCommand = OBJECT(TCardCommand)
  93.  
  94.         {Methods}
  95.         PROCEDURE TDeleteCardCommand.IDeleteCardCommand(theCard: TCard; itsIndex: ArrayIndex);
  96.         PROCEDURE TDeleteCardCommand.DoIt; OVERRIDE;
  97.         PROCEDURE TDeleteCardCommand.UndoIt; OVERRIDE;
  98.         PROCEDURE TDeleteCardCommand.Free; OVERRIDE;
  99.  
  100.     END;
  101.  
  102.  
  103.     TFieldItemCommand = OBJECT(TMyCommand)
  104.  
  105.         {Fields}
  106.         fFieldIndex: ArrayIndex;
  107.         fGetIndex: ArrayIndex;
  108.         fSetIndex: ArrayIndex;
  109.  
  110.         {Collaborators}
  111.         fFieldItem: TFieldItem;
  112.         fGetAccessor: TGetAccessorItem;
  113.         fSetAccessor: TSetAccessorItem;
  114.  
  115.         {Methods}
  116.         PROCEDURE TFieldItemCommand.GetTheIndecies(VAR     theFieldIndex,
  117.                                                                                                         theGetIndex,
  118.                                                                                                         theSetIndex: ArrayIndex);
  119.         PROCEDURE TFieldItemCommand.SetTheIndecies(    theFieldIndex,
  120.                                                                                                 theGetIndex,
  121.                                                                                                 theSetIndex: ArrayIndex);
  122.         PROCEDURE TFieldItemCommand.DetermineAccessorsAndIndecies(theFieldItem: TFieldItem;
  123.                                                                                                                             theCard: TCard;
  124.                                                                                                                             itsIndex: ArrayIndex);
  125.         PROCEDURE TFieldItemCommand.IFieldItemCommand(theCommandNum: CmdNumber; 
  126.                                                                                                     theCard: TCard;
  127.                                                                                                     theFieldItem: TFieldItem;
  128.                                                                                                     itsIndex: ArrayIndex);
  129.         FUNCTION TFieldItemCommand.GetFieldItem: TFieldItem;
  130.         PROCEDURE TFieldItemCommand.SetFieldItem(theFieldItem: TFieldItem);
  131.         FUNCTION TFieldItemCommand.GetGetAccessor: TGetAccessorItem;
  132.         PROCEDURE TFieldItemCommand.SetGetAccessor(theGetAccessor: TGetAccessorItem);
  133.         FUNCTION TFieldItemCommand.GetSetAccessor: TSetAccessorItem;
  134.         PROCEDURE TFieldItemCommand.SetSetAccessor(theSetAccessor: TSetAccessorItem);
  135.         PROCEDURE TFieldItemCommand.CreateAccessors(theFieldItem: TFieldItem);
  136.         PROCEDURE TFieldItemCommand.DeleteAccessors;
  137.         PROCEDURE TFieldItemCommand.Fields(PROCEDURE DoToField(
  138.             fieldName: Str255; fieldAddr: Ptr; fieldType: INTEGER)); OVERRIDE;
  139.  
  140.     END;
  141.  
  142.  
  143.     TAddFieldItemCommand = OBJECT(TFieldItemCommand)
  144.  
  145.         {Methods}
  146.         PROCEDURE TAddFieldItemCommand.IAddFieldItemCommand(theCard: TCard;
  147.                                                                                                                 theName, theType: str255);
  148.         PROCEDURE TAddFieldItemCommand.DoIt; OVERRIDE;
  149.         PROCEDURE TAddFieldItemCommand.UndoIt; OVERRIDE;
  150.         PROCEDURE TAddFieldItemCommand.Free; OVERRIDE;
  151.  
  152.     END;
  153.  
  154.  
  155.     TDeleteFieldItemCommand = OBJECT(TFieldItemCommand)
  156.  
  157.         {Methods}
  158.         PROCEDURE TDeleteFieldItemCommand.IDeleteFieldItemCommand(theCard: TCard;
  159.                                                                                                                         theFieldItem: TFieldItem;
  160.                                                                                                                         itsIndex: ArrayIndex);
  161.         PROCEDURE TDeleteFieldItemCommand.DoIt; OVERRIDE;
  162.         PROCEDURE TDeleteFieldItemCommand.UndoIt; OVERRIDE;
  163.         PROCEDURE TDeleteFieldItemCommand.Free; OVERRIDE;
  164.  
  165.     END;
  166.  
  167.     TMethodItemCommand = OBJECT(TMyCommand)
  168.  
  169.         {Fields}
  170.         fIndex: ArrayIndex;
  171.  
  172.         {Collaborators}
  173.         fMethodItem: TMethodItem;
  174.  
  175.         {Methods}
  176.         FUNCTION TMethodItemCommand.GetIndex: ArrayIndex;
  177.         PROCEDURE TMethodItemCommand.SetIndex(theIndex: ArrayIndex);
  178.         PROCEDURE TMethodItemCommand.IMethodItemCommand(theCommandNum: CmdNumber;
  179.                                                                                                             theCard: TCard;
  180.                                                                                                             theMethodItem: TMethodItem;
  181.                                                                                                             itsIndex: ArrayIndex);
  182.         FUNCTION TMethodItemCommand.GetMethodItem: TMethodItem;
  183.         PROCEDURE TMethodItemCommand.SetMethodItem(theMethodItem: TMethodItem);
  184.         PROCEDURE TMethodItemCommand.Fields(PROCEDURE DoToField(
  185.             fieldName: Str255; fieldAddr: Ptr; fieldType: INTEGER)); OVERRIDE;
  186.  
  187.     END;
  188.  
  189.  
  190.     TAddMethodItemCommand = OBJECT(TMethodItemCommand)
  191.  
  192.         {Methods}
  193.         PROCEDURE TAddMethodItemCommand.IAddMethodItemCommand(theCard: TCard;
  194.                                                                                                                     theItemName: str255;
  195.                                                                                                                     makeItAnOverride: boolean);
  196.         PROCEDURE TAddMethodItemCommand.DoIt; OVERRIDE;
  197.         PROCEDURE TAddMethodItemCommand.UndoIt; OVERRIDE;
  198.         PROCEDURE TAddMethodItemCommand.Free; OVERRIDE;
  199.  
  200.     END;
  201.  
  202.  
  203.     TDeleteMethodItemCommand = OBJECT(TMethodItemCommand)
  204.  
  205.         {Methods}
  206.         PROCEDURE TDeleteMethodItemCommand.IDeleteMethodItemCommand(theCard: TCard;
  207.                                                                                                                                 theMethodItem: TMethodItem;
  208.                                                                                                                                 itsIndex: ArrayIndex);
  209.         PROCEDURE TDeleteMethodItemCommand.DoIt; OVERRIDE;
  210.         PROCEDURE TDeleteMethodItemCommand.UndoIt; OVERRIDE;
  211.         PROCEDURE TDeleteMethodItemCommand.Free; OVERRIDE;
  212.  
  213.     END;
  214.  
  215.  
  216.     TAddCollaboratorItemCommand = OBJECT(TAddFieldItemCommand)
  217.  
  218.         {Methods}
  219.         PROCEDURE TAddCollaboratorItemCommand.IAddCollaboratorItemCommand(theCard: TCard;
  220.                                                                                                                                             theItemName: str255);
  221.         PROCEDURE TAddCollaboratorItemCommand.DoIt; OVERRIDE;
  222.         PROCEDURE TAddCollaboratorItemCommand.UndoIt; OVERRIDE;
  223.  
  224.     END;
  225.  
  226.  
  227.     TDeleteCollabItemCommand = OBJECT(TDeleteFieldItemCommand)
  228.  
  229.         {Methods}
  230.         PROCEDURE TDeleteCollabItemCommand.IDeleteCollabItemCommand(theCard: TCard;
  231.                                                                                                                                 theCollabItem: TCollaboratorItem;
  232.                                                                                                                                 itsIndex: ArrayIndex);
  233.         PROCEDURE TDeleteCollabItemCommand.DoIt; OVERRIDE;
  234.         PROCEDURE TDeleteCollabItemCommand.UndoIt; OVERRIDE;
  235.  
  236.     END;
  237.     
  238.     TChangeNameCommand = OBJECT(TMyCommand)
  239.         fOldName: str255;
  240.         fNewName: str255;
  241.         
  242.         FUNCTION TChangeNameCommand.GetOldName: str255;
  243.         PROCEDURE TChangeNameCommand.SetOldName(theOldName: str255);
  244.         FUNCTION TChangeNameCommand.GetNewName: str255;
  245.         PROCEDURE TChangeNameCommand.SetNewName(theNewName: str255);
  246.         PROCEDURE TChangeNameCommand.IChangeNameCommand(theCommandNum: CmdNumber;
  247.                                                                                                         theCard: TCard; 
  248.                                                                                                         theOldName, theNewName: str255);
  249.         PROCEDURE TChangeNameCommand.Fields(PROCEDURE DoToField(fieldName: Str255; 
  250.                                                                                 fieldAddr: Ptr; fieldType: INTEGER)); OVERRIDE;
  251.     END;
  252.     
  253.     TChangeClassCommand = OBJECT(TChangeNameCommand)
  254.         PROCEDURE TChangeClassCommand.DoIt; OVERRIDE;
  255.         PROCEDURE TChangeClassCommand.UndoIt; OVERRIDE;
  256.     END;
  257.     
  258.     TChangeSuperClassCommand = OBJECT(TChangeNameCommand)
  259.         PROCEDURE TChangeSuperClassCommand.DoIt; OVERRIDE;
  260.         PROCEDURE TChangeSuperClassCommand.UndoIt; OVERRIDE;
  261.     END;
  262.  
  263.     TChangeInstVarCommand = OBJECT(TChangeNameCommand)
  264.         fFieldItem: TFieldItem;
  265.         fGetAccessor: TGetAccessorItem;
  266.         fSetAccessor: TSetAccessorItem;
  267.         PROCEDURE TChangeInstVarCommand.IChangeInstVarCommand(theCommandNum: CmdNumber; 
  268.                                                                                                                     theCard:TCard; 
  269.                                                                                                                     theFieldItem: TFieldItem;
  270.                                                                                                                     theNewName: Str255);
  271.         PROCEDURE TChangeInstVarCommand.DoIt; OVERRIDE;
  272.         PROCEDURE TChangeInstVarCommand.UndoIt; OVERRIDE;
  273.     END;
  274.     
  275.     TChangeFieldCommand = OBJECT(TChangeInstVarCommand)
  276.         fOldType: Str255;
  277.         fNewType: Str255;
  278.         
  279.         FUNCTION TChangeFieldCommand.GetOldType: Str255;
  280.         PROCEDURE TChangeFieldCommand.SetOldType(theType: Str255);
  281.         FUNCTION TChangeFieldCommand.GetNewType: Str255;
  282.         PROCEDURE TChangeFieldCommand.SetNewType(theType: Str255);
  283.         PROCEDURE TChangeFieldCommand.IChangeFieldCommand(theCommandNum: CmdNumber; 
  284.                                                                                                     theCard: TCard; theFieldItem: TFieldItem;
  285.                                                                                                     theNewName, theNewType: Str255);
  286.         PROCEDURE TChangeFieldCommand.DoIt; OVERRIDE;
  287.         PROCEDURE TChangeFieldCommand.UndoIt; OVERRIDE;
  288.     END;
  289.     
  290.     TChangeCollaboratorCommand = OBJECT(TChangeInstVarCommand)
  291.         PROCEDURE TChangeCollaboratorCommand.IChangeCollaboratorCommand
  292.                                                                                                         (theCommandNum: CmdNumber; 
  293.                                                                                                         theCard:TCard; 
  294.                                                                                                         TheFieldItem: TFieldItem;
  295.                                                                                                         theNewName: Str255);
  296.         PROCEDURE TChangeCollaboratorCommand.DoIt; OVERRIDE;
  297.         PROCEDURE TChangeCollaboratorCommand.UndoIt; OVERRIDE;
  298.     END;
  299.  
  300.     TChangeMethodCommand = OBJECT(TChangeNameCommand)
  301.         fMethodItem : TMethodItem;
  302.         fOldIsOverride : BOOLEAN;
  303.         fNewIsOverride : BOOLEAN;
  304.         FUNCTION TChangeMethodCommand.GetTheMethodItem:TMethodItem;
  305.         PROCEDURE TChangeMethodCommand.SetTheMethodItem(theMethodItem : TMethodItem);
  306.         FUNCTION TChangeMethodCommand.GetOldIsOverride: Boolean;
  307.         PROCEDURE TChangeMethodCommand.SetOldIsOverride(isOverride : Boolean);
  308.         FUNCTION TChangeMethodCommand.GetNewIsOverride: Boolean;
  309.         PROCEDURE TChangeMethodCommand.SetNewIsOverride(isOverride : Boolean);
  310.         PROCEDURE TChangeMethodCommand.IChangeMethodCommand(theCommandNum: CmdNumber; 
  311.                                                                                                         theCard:TCard; 
  312.                                                                                                         theMethodItem: TMethodItem;
  313.                                                                                                         theNewName: Str255;
  314.                                                                                                         newIsOverride: Boolean);
  315.         PROCEDURE TChangeMethodCommand.DoIt; OVERRIDE;
  316.         PROCEDURE TChangeMethodCommand.UndoIt; OVERRIDE;
  317.     END;
  318.  
  319. IMPLEMENTATION
  320.  
  321. {$I UMyCommands.inc1.p}
  322.  
  323. END.